[<<Previous Entry]
[^^Up^^]
[Next Entry>>]
[Menu]
[About The Guide]
* Window program sample code
* [The PrintWindow() calls will only work with the registered version]
*
* COMPILE with CLIPPER <file> /w/n
* LINK with RTLINK FI <file>,HELPSYS2 LI HELPSYS2
FUNCTION Main
OpenWindow(10,10,20,70,"Top Title","Bottom Title",.T.)
SetColor("R/B")
PrintWindow(5,5,"Test Text")
SetColor("B/R")
PrintWindow(4,5,"This is")
SetColor("N/W")
PrintWindow(7,1,"This is a sample line that should wrap"+;
" to the next line once the edge of the window is reached")
PrintAlert("Sample Alert")
PrintWindow(0,1,"Test Line 1")
PrintWindow(1,0,"Test Line 2")
PrintWindow(1,0,"Test Line 3")
* NOTE: If the row parameter is greater than the number of lines in the
* window, the window is automatically scrolled up one and then
* the line is printed
PrintWindow(100,1,"Test Line 4")
PrintWindow(100,1,"Press Anykey")
INKEY(0)
CloseWindow()
RETURN NIL
This page created by ng2html v1.05, the Norton guide to HTML conversion utility.
Written by Dave Pearson